perm filename RPG.FRM[P,JRA] blob
sn#420471 filedate 1979-02-24 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00004 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 ∂17-Jan-79 1546 RPG UTIL.>
C00003 00003 ∂09-Feb-79 1457 RPG Dislocated open file helper
C00005 00004 ∂20-Feb-79 1547 RPG New STEP feature
C00008 ENDMK
C⊗;
∂17-Jan-79 1546 RPG UTIL.>
To: "@USERS.DIS[AID,RPG]" at SU-AI
To speed up compilation (and interpretation), you might try changing your
(require util 1 dsk (aid rpg)) to
(declare (fasload '((dsk (aid rpg)) util fas)))
-rpg-
∂09-Feb-79 1457 RPG Dislocated open file helper
To: "@USERS.DIS[AID,RPG]" at SU-AI
Sometimes in NEWIO you can get stranded by opening some
file and then losing a pointer to it. This sometimes occurs in
errors; the function CLOSER can help in this case.
When called with 0 arguments, it searches the internal list
of open files and asks about each non-TTY file whether you want it
closed:
(EOPEN '(EDIT /113)) ;loser is asking for trouble!!! No pointer to this one!!!
;unless s/he likes typing this:
#FILE-IN-|DSK:EDIT.113[AID,RPG]|-7774
(EOPEN '(CLOSE 1)) ;there's no end to his/her stupidity
#FILE-IN-|DSK:CLOSE.1[AID,RPG]|-7766
(CLOSER) ;hmmm, maybe not as stupid as all that!
#FILE-IN-|DSK:EDIT.113[AID,RPG]|-7774 - Close this one? Y
#FILE-IN-|DSK:EDIT.113[AID,RPG]|-7774 closed!
#FILE-IN-|DSK:CLOSE.1[AID,RPG]|-7766 - Close this one? N
DONE ;managed to win anyway?!?!?
-rpg-
∂09-Feb-79 1502 RPG ...
To: "@USERS.DIS[AID,RPG]" at SU-AI
I forgot to add: available through (HELP).
-rpg-
∂20-Feb-79 1547 RPG New STEP feature
To: "@USERS.DIS[AID,RPG]" at SU-AI
αβM, αM, and βM can be used to step around macro calls gracefully. If you type
either of these at a macro call, the STEPper will assume that it is a macro,
expand it, and present you with the expanded form without any stepping involved
in the expansion. If it isn't a macro, it restates the form.
-rpg-